home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_87913.txt < prev    next >
Text File  |  1990-08-14  |  2KB  |  90 lines

  1. -- card: 87913 from stack: in
  2. -- bmap block id: 88415
  3. -- flags: 4000
  4. -- background id: 69011
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the long date into card field "Date"
  9. end openCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=0 top=0 right=342 bottom=512
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: 
  24.  
  25.  
  26. -- part 2 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=151 top=322 right=336 bottom=203
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Scroll left
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   lock screen
  41.   go prev
  42.   unlock screen
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=11 top=23 right=38 bottom=26
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 5068 / 5068
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Close
  59. ----- HyperTalk script -----
  60. on mouseDown
  61.   set icon of me to "Close Box Hi"
  62. end mouseDown
  63.  
  64. on mouseLeave
  65.   set icon of me to "Close Box"
  66. end mouseLeave
  67.  
  68. on mouseUp
  69.   set icon of me to "Close Box"
  70.   pop card
  71. end mouseUp
  72.  
  73.  
  74. -- part 4 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=349 top=45 right=58 bottom=491
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: Date
  86.  
  87.  
  88. -- part contents for card part 4
  89. ----- text -----
  90. Monday, September 4, 1989